home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-11-06 | 704 b | 47 lines | [TEXT/MSET] |
- \ 28Oct94 dbh updated to 2.5 syntax
-
- (*
-
- A pushButton and checkBox+ will function as is without any required
- setup. They have default titles and positions, and will respond
- appropriately to mouse clicks. These controls are selection objects.
- Action handlers must be installed in order for these controls to actually
- do anything.
-
- *)
-
- :class CHECKBOX+ super{ pushButton }
-
- :m toggle:
- get: self
- IF 0
- ELSE 1
- THEN put: self ;m
-
- :m exec: ( part# -- )
- IF
- toggle: self
- get: action execute
- THEN ;m
-
- :m CLASSINIT:
- konst checkBoxProc put: procID
- " Checkbox+" put: cTitle ;m
-
- ;class
-
-
- endload
-
- *** EXAMPLE USE
-
- selwindow w
- test: w
-
- pushButton b
- b add: w
-
- checkbox+ c
- 20 20 moveto: c
- c add: w
-